home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / eiffel / smalleif.97 / se.t / SmallEiffel / lib_show / bench1 / bench1.e < prev    next >
Encoding:
Text File  |  1996-05-02  |  797 b   |  39 lines
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. deferred class BENCH1
  5.  
  6. feature {NONE}
  7.  
  8.    bench1_size: INTEGER is 80;
  9.  
  10.    bench1(cltn: COLLECTION[INTEGER]) is
  11.       require
  12.      cltn.count = bench1_size
  13.       local
  14.      inner, outer, nb_loops, value: INTEGER
  15.       do
  16.      std_output.put_string ("Start .")
  17.      nb_loops := bench1_size * bench1_size;
  18.      from
  19.         outer := 1;
  20.      until
  21.         outer > nb_loops
  22.      loop
  23.         std_output.put_character('.')
  24.         from
  25.            inner := cltn.lower;
  26.         until
  27.            inner > cltn.upper
  28.         loop
  29.            value := cltn.item(inner);
  30.            cltn.put(value + 1,inner);
  31.            inner := inner + 1;
  32.         end;
  33.         outer := outer + 1
  34.      end;
  35.      std_output.put_string ("%NFinished.%N")
  36.       end;
  37.  
  38. end
  39.